a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
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LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 
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So oe Bos Bos Ben Dons Bon Ben a Bona Bont Bn oa em 
Ss Tons Iona Ions Iona Bons Bon a Bona Bona Bn. na, na Pon 
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nn 


000000 
000000 


DDDDDDDD 
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DD DD 
DDDDDDDD 
DDDDDDDD 
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LLLLLLLLLL 
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PPPPPPPP 


PPPPPPPP 
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AAAAAA 

AAAAAA 
AA 
AA AA 
AA AA 
ah Aa 
AA aA 
Aa AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA Ab 
Aa AA 
AR AA 
Ad AA 
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Site file for FORTRAN sar soon parameters passed between modules 
File: FORPAR.SDL Edit 


Ceeeeeeeeneeecerereneeeereneneeeteeeeeeeeeneeeeeeeneeetererereereeenereeeste 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS i "rte Be FURNISHED UNDER A LICENSE AND MAY BE USED AND gl 8 
ONLY IN ACCORDANCE WITH THE ae OF SUCH LICENSE AND WITH THE 


2 
a 
® 
® 
® 
® 
w 
® 
OTHER * 

COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

tr 

ie 

® 

® 

& 

® 

® 

af 

® 

® 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
compokat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(ARBRRRAASAASAAALLALALSALLAAE ARSE ALES AS ESAS EES EERE ES ER ERR REE REESE SEARS REESE 


Author: T. Hastings 

Change History: 

(Previous edit history removed. SBL 23-Aug-1982) 

1-007 = Add FORSK_CLASS_SB and FORSK_C CLASS _ NL. JAW 28-Jul-1981 
2-001 - Convert to SDL.” SBL 23-Aug-1982 

De 

Ca 


all symbols as if they vere » giodets using the FORS prefix. 
eats ons in MACRO-32 wi 


BAX AAA AAAAAAAAAARAAAAAAS 


MODULE SFORPAR; 
AGGREGATE FORSR_PAR STRUCTURE PREFIX FORS; 


{+ 
{ Define statement type structure which is passed in RO from UPI-Level 
statement entry routines to FOR$$I0_BEG. 


union_1 UNION; 
structure 1 STRUCT 
STMT_TYPE BYTE UTR e 1GNED; { statement type code 
STMT-FLAGS BYTE "UNSIGNED; { statement flags 


END Structure 

structure 2 STRUCTUR 
fill_T el TF TELD LENGTH 8 FILL TAG $8; ¢ skip statement type 

OBJ_FMT BITFIE D; run-time (object time) formatting 
END™ whit, 

END union_1; 
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& 
Private-use descriptor class codes defined for Fortran. These codes 
identify descriptors passed by compiled code to FORSIO_ELEM. 


CONSTANT CLASS_SB EQUAL 


1 
CONSTANT CLASS-NL EQUALS 1 


nn 


91; 
90; 
& 
‘ Control Z record for use with reading ENDFILE produced on PDP-11s 


CONSTANT CONTROL _Z EQUALS 26; { ASCII Control Z = ENDFILE record 


o 

Parameter values to be passed to Handlers set up 

on 1/0 calls from user (see FORERROR.B32). 

The values indicate what soos action is to be done when 

and if an UNWIND should occur (ERR= transfer or SIGNAL or STOP 

which does an UNWIND. | 


AAA 


CONSTANT UNWINDNOP EQUALS 1; UNWIND cleanup which does nototas ie NOP). 
CONSTANT UNWINDRET EQUALS 2; UNWIND cleanup which does a $CLOSE and returns LUB/ISB/RAB 


CONSTANT UNWINDPOP EQUALS 0; UNWIND cleanup which pops current LUB/ISB/RAB | 
END FORSR_PAR; 
END_MODULE SFORPAR; 


| 
| 
{ End of file FORPAR.SDL 
| 
| 
| 
| 
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